--Dictionary
--By HeaD_ShOt

white = Color.new(255,255,255)
red = Color.new(255,0,0)
black = Color.new(0,0,0)
blue = Color.new(0,0,255)
green = Color.new(0,255,0)

bg = Image.load("background.png")

current = 1
oldpad = Controls.read()
while true do
pad = Controls.read()
screen:clear()

screen:blit(0,0,bg)
screen:print(142,10,"Japanese-English Dictionary",red)
screen:print(30,20,"A",black)
screen:print(45,20,"B",black)
screen:print(60,20,"C",black)
screen:print(75,20,"D",black)
screen:print(90,20,"E",black)
screen:print(105,20,"F",black)
screen:print(120,20,"G",black)
screen:print(135,20,"H",black)
screen:print(150,20,"I",black)
screen:print(165,20,"J",black)
screen:print(180,20,"K",black)
screen:print(195,20,"L",black)
screen:print(210,20,"M",black)
screen:print(225,20,"N",black)
screen:print(240,20,"O",black)
screen:print(255,20,"P",black)
screen:print(270,20,"Q",black)
screen:print(285,20,"R",black)
screen:print(300,20,"S",black)
screen:print(315,20,"T",black)
screen:print(330,20,"U",black)
screen:print(345,20,"V",black)
screen:print(360,20,"W",black)
screen:print(375,20,"X",black)
screen:print(390,20,"Y",black)
screen:print(405,20,"Z",black)
screen:print(420,20,"Exit",black)

if current == 1 then
screen:print(30,20,"A",green)
screen:print(22,20,"[ ]",green)
end
if current == 2 then
screen:print(45,20,"B",green)
screen:print(37,20,"[ ]",green)
end
if current == 3 then
screen:print(60,20,"C",green)
screen:print(52,20,"[ ]",green)
end
if current == 4 then
screen:print(75,20,"D",green)
screen:print(68,20,"[ ]",green)
end
if current == 5 then
screen:print(90,20,"E",green)
screen:print(82,20,"[ ]",green)
end
if current == 6 then
screen:print(105,20,"F",green)
screen:print(97,20,"[ ]",green)
end
if current == 7 then
screen:print(120,20,"G",green)
screen:print(113,20,"[ ]",green)
end
if current == 8 then
screen:print(135,20,"H",green)
screen:print(127,20,"[ ]",green)
end
if current == 9 then
screen:print(150,20,"I",green)
screen:print(142,20,"[ ]",green)
end
if current == 10 then
screen:print(165,20,"J",green)
screen:print(157,20,"[ ]",green)
end
if current == 11 then
screen:print(180,20,"K",green)
screen:print(172,20,"[ ]",green)
end
if current == 12 then
screen:print(195,20,"L",green)
screen:print(187,20,"[ ]",green)
end
if current == 13 then
screen:print(210,20,"M",green)
screen:print(202,20,"[ ]",green)
end
if current == 14 then
screen:print(225,20,"N",green)
screen:print(217,20,"[ ]",green)
end
if current == 15 then
screen:print(240,20,"O",green)
screen:print(232,20,"[ ]",green)
end
if current == 16 then
screen:print(255,20,"P",green)
screen:print(247,20,"[ ]",green)
end
if current == 17 then
screen:print(270,20,"Q",green)
screen:print(262,20,"[ ]",green)
end
if current == 18 then
screen:print(285,20,"R",green)
screen:print(277,20,"[ ]",green)
end
if current == 19 then
screen:print(300,20,"S",green)
screen:print(292,20,"[ ]",green)
end
if current == 20 then
screen:print(315,20,"T",green)
screen:print(307,20,"[ ]",green)
end
if current == 21 then
screen:print(330,20,"U",green)
screen:print(322,20,"[ ]",green)
end
if current == 22 then
screen:print(345,20,"V",green)
screen:print(337,20,"[ ]",green)
end
if current == 23 then
screen:print(360,20,"W",green)
screen:print(352,20,"[ ]",green)
end
if current == 24 then
screen:print(375,20,"X",green)
screen:print(367,20,"[ ]",green)
end
if current == 25 then
screen:print(390,20,"Y",green)
screen:print(382,20,"[ ]",green)
end
if current == 26 then
screen:print(405,20,"Z",green)
screen:print(397,20,"[ ]",green)
end
if current == 27 then
screen:print(420,20,"Exit",green)
screen:print(412,20,"[    ]",green)
end

if pad:cross() then
if current == 1 then
dofile("Dictionary/A.lua")
elseif current == 2 then
dofile(Dictionary/B.lua")
elseif current == 3 then
dofile("Dictionary/C.lua")
elseif current == 4 then
dofile("Dictionary/D.lua")
elseif current == 5 then
dofile("Dictionary/E.lua")
elseif current == 6 then
dofile("Dictionary/F.lua")
elseif current == 7 then
dofile("Dictionary/G.lua")
elseif current == 8 then
dofile("Dictionary/H.lua")
elseif current == 9 then
dofile("Dictionary/I.lua")
elseif current == 10 then
dofile("Dictionary/J.lua")
elseif current == 11 then
dofile("Dictionary/K.lua")
elseif current == 12 then
dofile("Dictionary/L.lua")
elseif current == 13 then
dofile("Dictionary/M.lua")
elseif current == 14 then
dofile("Dictionary/N.lua")
elseif current == 15 then
dofile("Dictionary/O.lua")
elseif current == 16 then
dofile("Dictionary/P.lua")
elseif current == 17 then
dofile("Dictionary/Q.lua")
elseif current == 18 then
dofile("Dictionary/R.lua")
elseif current == 19 then
dofile("Dictionary/S.lua")
elseif current == 20 then
dofile("Dictionary/T.lua")
elseif current == 21 then
dofile("Dictionary/U.lua")
elseif current == 22 then
dofile("Dictionary/V.lua")
elseif current == 23 then
dofile("Dictionary/W.lua")
elseif current == 24 then
dofile("Dictionary/X.lua")
elseif current == 25 then
dofile("Dictionary/Y.lua")
elseif current == 26 then
dofile("Dictionary/Z.lua")
elseif current == 27 then
break
end
end 

if pad:left() and oldpad:left() ~=pad:left() then
current = current - 1
end
if pad:right() and oldpad:right() ~=pad:right() then
current = current + 1
end

if current == 0 then
current = 27
end
if current == 28 then
current = 1
end

screen.waitVblankStart()
screen.flip()
oldpad = pad
end